home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Amiga Collections: Auge 4000
/
Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).zip
/
Auge 4000 #77 (1994-02-10)(Amiga User Gruppe Einzugsgebiet 4000).adf
/
Write
/
WRITE.lha
/
WRITEV3.371.lha
/
Config
/
VIEW.config
< prev
next >
Wrap
Text File
|
1993-12-27
|
5KB
|
213 lines
/*
* $VER: VIEW.CONFIG 3.371 (27.12.93) © 1989 - 1993 by Tim Teulings
*/
IF Compare 3371 _Version;
NOP;
Ask "WRITE und VIEW.cfg haben eine unterschiedliche\n"+
"Versionsnummer\n"+
"Weiterparsen könnte gefährlich sein !"
"Stop & _Ende ^|_Weiter pasen *"
Break EQUAL _RN 0;
/* Setzen der internen Variablen */
/* ----------------------------- */
/* Lokal */
SETVAR "_ReadTabs" TRUE /* Konvertieren ja/nein ? */
SETVAR "_CaseSense" TRUE
SETVAR "_Optimize" TRUE
SETVAR "_FRPattern" "~(#?.info)"
SETVAR "_EditMode" FALSE
/* Setzen der User-Funktionen */
/* -------------------------- */
/*Die Commandline-Load WBenchArg Routine */
SETUSERFKT 0 SETVAR "_Path" _RS
NewEd ""
Window 0 0 0 0
Open _Path;
/* Die Closing-Gadget Routine */
SETUSERFKT 1 QuitEd;
/* Die Tastaturbelegung */
/* -------------------- */
KEY "shift help"
Help; /* Help-Menu */
KEY "escape" Iconify;
KEY "f1" GoTextMark 0; /* Textmarken auf */
KEY "shift f1" SetTextMark 0; /* Funktionstasten */
KEY "f2" GoTextMark 1;
KEY "shift f2" SetTextMark 1;
KEY "f3" GoTextMark 2;
KEY "shift f3" SetTextMark 2;
KEY "f4" GoTextMark 3;
KEY "shift f4" SetTextMark 3;
KEY "f5" GoTextMark 4;
KEY "shift f5" SetTextMark 4;
KEY "numpad shift 1" Goto _xPos _Length; /* Tastaturbelegung für */
KEY "numpad shift 2" CursorDown 0; /* nummerische Tastatur */
KEY "numpad shift 3" PageDown 90; /* siehe Aufschrift auf Tasten */
KEY "numpad shift 4" CursorLeft 0; /* Aktivierung mit SHIFT */
KEY "numpad shift 5" SetTitle "Set Mark." FALSE
SetMark;
KEY "numpad shift 6" CursorRight 0;
KEY "numpad shift 7" Goto _xPos 1;
KEY "numpad shift 8" CursorUp 0;
KEY "numpad shift 9" PageUp 90;
KEY "numpad enter" Return;
KEY "right" CursorRight 0;
KEY "left" CursorLeft 0;
KEY "up" CursorUp 0;
KEY "down" CursorDown 0;
KEY "shift up" PageUp 90;
KEY "shift down" PageDown 90;
KEY "shift right" Goto @EOL @EOL;
KEY "shift left" Goto @SOL @SOL;
KEY "alt up" Goto _xPos 1; /* zur 1. Zeile oder */
KEY "alt down" Goto _xPos _Length; /* zur letzten Zeile springen */
KEY "alt left" LastWord;
KEY "alt right" NextWord;
/*
* alternates :
* Change number after CursorLeft/Right/Up/Down and BackSpace to 1
*/
/* Die Menüs */
/* --------- */
MENU "PROJEKT"
ITEM "Öffne..." "O"
GetFile
Open _Path;
ITEMBAR
ITEM "Speichern" "S"
Save _FileName;
ITEM "Speichern als..." "A"
GetFile {@SAVE}
SetVar "_FileName" _Path
Save _FileName;
ITEM "Speicher als RAW..." ""
GetFile {@SAVE}
Save _Path {@RAW};
ITEM "Speichern & neu öffnen..." ""
Save _FileName
GetFile
Open _Path;
ITEM "Text ausdrucken" "*"
Save "PRT:";
ITEMBAR
ITEM "Neues Fenster »" "" NOP;
SUB "GROßES FENSTER" "B"
NewEd "VIEW.config"
Window 0 0 0 0;
SUB "kleines Fenster" "W"
NewEd "VIEW.config"
Window 100 50 100 50;
ITEM "Iconify" "I"
Iconify;
ITEM "Hide" ""
Hide;
ITEM "WinArranger" "§"
WinArranger;
ITEM "WinManager" "$"
WinManager;
ITEMBAR
ITEM "Über WRITE" "!"
About;
ITEMBAR
ITEM "Ende" "Q"
QuitEd;
MENU "EDIT"
ITEM "Setze Marke" "M"
SetTitle "Marke gesetzt." FALSE
SetMark;
ITEM "Lösche Marke" "U"
Unmark;
ITEMBAR
ITEM "Kopieren" "C"
CopyBlock 0
SetTitle "Block kopiert." FALSE;
ITEM "Nach Clip kopieren" ""
CopyBlock 0
BufferToClip 0 0
SetTitle "Block kopiert." FALSE;
ITEM "Speicher Block als..." ""
CopyBlock 0
GetFile {@SAVE}
SaveBuffer _Path 0;
ITEM "Drucke Block" ""
CopyBlock 0
SaveBuffer "PRT:" 0;
MENU "UTLITIES"
ITEM "Zeige Zeit & Datum" "T"
MessageOK "Aktuelle Zeit ist :\n$_Time$";
ITEMBAR
ITEM "Match Bracket" "("
MatchBracket;
MENU "SEARCH"
ITEM "Finde..." "F"
GetFindReplace _FindString ""
Find @CURSOR @CURSOR @EOT @EOT;
ITEM "Finde noch einmal" "N"
Find @CURSOR @CURSOR @EOT @EOT;
ITEMBAR
ITEM "Suche nach Muster..." ""
GetString "Bitte geben sie das Suchmuster an :\n(Case)" _PatCase
SetVar "_PatCase" _RS
FindPattern {@CASE};
ITEM "Suche noch einmal" ""
FindPattern {@CASE};
ITEM "Suche nach Muster (no Case)..." "Ö"
GetString "Bitte geben sie das Suchmuster an :\n(No case)" _PatNoCase
SetVar "_PatNoCase" _RS
FindPattern {@NOCASE};
ITEM "Suche noch einmal" "Ä"
FindPattern {@NOCASE};
ITEMBAR
ITEM "Springe zu Zeile..." "G"
GetNumber "Springe zu Zeile :" _yPos
Goto _xPos _RN;
ITEMBAR
ITEM "Zeige Index..." "J"
GetString "Bitte geben sie das Suchmuster\n"+
"für den Index an :" "#?#?"
ShowIndex _RS {@CASE};
MENU "PREFS"
ITEM "Globale Prefs" ""
GPrefs;
ITEM "Prefs" "+"
Prefs;
MENU "HELP"
ITEM "Zeige Variablen" ""
ShowVars;
ITEM "Zeige Funktionen" ""
ShowFunctions;
ITEM "Zeige ASCII-Codes" ""
ShowASCII;
ITEM "Hilfe zu Stichwort..." "?"
GetString "Bitte geben sie das gesuchte Stichwort ein :" ""
GuideHelp _RS;